home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / pc / media / solaris.dxr / Internal_44_Mute Button Behavior.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  474 b   |  26 lines
  1. property pMySprite
  2. global gMuted
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   if gMuted then
  7.     pMySprite.member = member("SoundOff")
  8.     sound(2).volume = 0
  9.   else
  10.     pMySprite.member = member("SoundOn")
  11.     sound(2).volume = 240
  12.   end if
  13. end
  14.  
  15. on mouseDown me
  16.   if gMuted then
  17.     pMySprite.member = member("SoundOn")
  18.     sound(2).volume = 240
  19.     gMuted = 0
  20.   else
  21.     pMySprite.member = member("SoundOff")
  22.     sound(2).volume = 0
  23.     gMuted = 1
  24.   end if
  25. end
  26.